home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 8 / DISK0386.ZIP / ACHN.FOR next >
Text File  |  1985-05-02  |  931b  |  31 lines
  1. $STORAGE: 4
  2. $DO66
  3.       SUBROUTINE ACHN
  4. C                     PRINTS THE SECOND PART OF LOWER-CASE 'H' AND 'N'.
  5. C
  6.       DIMENSION KLINE(30)
  7.       COMMON /LINES/ LINE(132),LINEX(132)
  8.     CHARACTER*1 LINE,LINEX
  9.       COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7
  10. 61    FORMAT(1X,132A1)
  11. 62    FORMAT(1H+,132A1)
  12.       DATA KLINE/123849,94249,84651,74753,64854,64955,50550000,51560000,
  13.      *    51560000,51570000,51570000,51570000,65057,64957,74857,  84757,
  14.      *       94656, 124156, 550000, 530000, 520000, 500000, 480000,
  15.      *      440000, 120000,  90000,  80000,  70000,  60000,  60000/
  16.       DO 20 K=1,30
  17.       CALL BAXX(1,1)
  18.       KLK = KLINE(K)
  19.       NA = KLK/I6
  20.       NB = KLK/I4 - NA*I2
  21.       NC = KLK/I2 - NB*I2 - NA*I4
  22.       ND = KLK    - NC*I2 - NB*I4 - NA*I6
  23.       CALL FRNT(NA,NB)
  24.       IF(NC.EQ.0) GO TO 10
  25.       CALL FRNT(NC,ND)
  26. 10    WRITE(2,61) LINE
  27. 20    WRITE(2,62) LINEX
  28.       RETURN
  29.       END
  30.  
  31.